10 IFMRTHEN100
15 IFPEEK(6)=255THENPOKE45,PEEK(174):POKE46,PEEK(175):CLR
17 POKE55,0:POKE56,160:CLR
20 DV=PEEK(186):IFDV<8ORDV>16THENDV=8
30 OPEN15,DV,15:V$="9.5":PRINT"[147]":IFPEEK(648)=4THENPRINT"";
40 R=57088:A=1:FORI=2TO5:POKER+I,I:NEXT:FORI=2TO5:IFPEEK(R+I)<>ITHENA=0
50 NEXT:IFA=0THENPOKE1023,0:GOTO120
55 IFPEEK(1023)>=8ANDPEEK(1023)<=16THENU=PEEK(1023):GOTO110
56 IFPEEK(817)=207THENU=PEEK(52997):GOTO110
60 U=0:FORI=15TO8STEP-1:OPEN14,I,15:CLOSE14:IF128ANDSTTHENU=I:I=8
70 NEXT:IFU=0THENU=30
80 MR=25344
90 SYS65418:PRINT"[204]OADING [210][193][205][196][207][211]...":LOAD"RAMDOS64.BIN*",DV,1
100 SYSMR+12:POKE780,U:POKE781,207:SYSMR+6-3*(PEEK(1023)>0)
110 PRINT"[210][193][205]DISK INSTALLED AS DEVICE"U:POKE1023,U
120 REM OPEN5,2,0,CHR$(6):PRINT#5,"AT&C1"
130 PRINT"[204]OADING [206]OVATERM "V$"!":LOAD"NOVATERM "+V$,DV